home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue58 / ADOX / ADOXU1.dfm < prev    next >
Encoding:
Text File  |  2000-04-30  |  7.0 KB  |  292 lines
  1. object Form1: TForm1
  2.   Left = 192
  3.   Top = 107
  4.   Width = 823
  5.   Height = 545
  6.   Caption = 'ADOX Examples'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Label1: TLabel
  17.     Left = 8
  18.     Top = 272
  19.     Width = 69
  20.     Height = 13
  21.     Caption = 'Column Name:'
  22.   end
  23.   object Button1: TButton
  24.     Left = 8
  25.     Top = 16
  26.     Width = 185
  27.     Height = 25
  28.     Caption = 'List Northwind Tables'
  29.     TabOrder = 0
  30.     OnClick = Button1Click
  31.   end
  32.   object Memo1: TMemo
  33.     Left = 407
  34.     Top = 0
  35.     Width = 408
  36.     Height = 398
  37.     Align = alRight
  38.     TabOrder = 1
  39.   end
  40.   object btnStruct: TButton
  41.     Left = 8
  42.     Top = 80
  43.     Width = 185
  44.     Height = 25
  45.     Caption = 'List Customers Structure'
  46.     TabOrder = 2
  47.     OnClick = btnStructClick
  48.   end
  49.   object Button3: TButton
  50.     Left = 8
  51.     Top = 48
  52.     Width = 185
  53.     Height = 25
  54.     Caption = 'Show Customers Table Properties'
  55.     TabOrder = 3
  56.     OnClick = Button3Click
  57.   end
  58.   object Button2: TButton
  59.     Left = 8
  60.     Top = 112
  61.     Width = 185
  62.     Height = 25
  63.     Caption = 'Create C:\Temp\Temp.mdb'
  64.     TabOrder = 4
  65.     OnClick = Button2Click
  66.   end
  67.   object Button4: TButton
  68.     Left = 8
  69.     Top = 144
  70.     Width = 185
  71.     Height = 25
  72.     Caption = 'Create Customers table in Temp.mdb'
  73.     TabOrder = 5
  74.     OnClick = Button4Click
  75.   end
  76.   object DBGrid1: TDBGrid
  77.     Left = 0
  78.     Top = 398
  79.     Width = 815
  80.     Height = 120
  81.     Align = alBottom
  82.     DataSource = DataSource1
  83.     TabOrder = 6
  84.     TitleFont.Charset = DEFAULT_CHARSET
  85.     TitleFont.Color = clWindowText
  86.     TitleFont.Height = -11
  87.     TitleFont.Name = 'MS Sans Serif'
  88.     TitleFont.Style = []
  89.   end
  90.   object CheckBox1: TCheckBox
  91.     Left = 0
  92.     Top = 376
  93.     Width = 129
  94.     Height = 17
  95.     Caption = 'ADOTable1.Active'
  96.     TabOrder = 7
  97.     OnClick = CheckBox1Click
  98.   end
  99.   object btnModify: TButton
  100.     Left = 8
  101.     Top = 176
  102.     Width = 185
  103.     Height = 25
  104.     Caption = 'Delete PHONE, Add FAX'
  105.     TabOrder = 8
  106.     OnClick = btnModifyClick
  107.   end
  108.   object btnAlterCol: TButton
  109.     Left = 8
  110.     Top = 208
  111.     Width = 185
  112.     Height = 25
  113.     Caption = 'Change CUSTNAME to 30'
  114.     TabOrder = 9
  115.     OnClick = btnAlterColClick
  116.   end
  117.   object Button5: TButton
  118.     Left = 8
  119.     Top = 240
  120.     Width = 185
  121.     Height = 25
  122.     Caption = 'Copy CUSTNAME To TEMP'
  123.     TabOrder = 10
  124.     OnClick = Button5Click
  125.   end
  126.   object Button6: TButton
  127.     Left = 8
  128.     Top = 296
  129.     Width = 185
  130.     Height = 25
  131.     Caption = 'Delete Column'
  132.     TabOrder = 11
  133.     OnClick = Button6Click
  134.   end
  135.   object btnAutoInc: TButton
  136.     Left = 8
  137.     Top = 328
  138.     Width = 185
  139.     Height = 25
  140.     Caption = 'Add An AutoIncrement Column'
  141.     TabOrder = 12
  142.     OnClick = btnAutoIncClick
  143.   end
  144.   object edtColName: TEdit
  145.     Left = 88
  146.     Top = 272
  147.     Width = 105
  148.     Height = 21
  149.     TabOrder = 13
  150.     Text = 'TEMP'
  151.   end
  152.   object btnCreateIndex: TButton
  153.     Left = 216
  154.     Top = 16
  155.     Width = 169
  156.     Height = 25
  157.     Caption = 'Create Index'
  158.     TabOrder = 14
  159.     OnClick = btnCreateIndexClick
  160.   end
  161.   object btnCreateCIndex: TButton
  162.     Left = 216
  163.     Top = 48
  164.     Width = 169
  165.     Height = 25
  166.     Caption = 'Create Composite Index'
  167.     TabOrder = 15
  168.     OnClick = btnCreateCIndexClick
  169.   end
  170.   object Button7: TButton
  171.     Left = 216
  172.     Top = 80
  173.     Width = 169
  174.     Height = 25
  175.     Caption = 'Create ORDERS Table'
  176.     TabOrder = 16
  177.     OnClick = Button7Click
  178.   end
  179.   object btnAddPKey: TButton
  180.     Left = 216
  181.     Top = 112
  182.     Width = 169
  183.     Height = 25
  184.     Caption = 'Add Primary Key To Customers'
  185.     TabOrder = 17
  186.     OnClick = btnAddPKeyClick
  187.   end
  188.   object btnDropPKey: TButton
  189.     Left = 216
  190.     Top = 144
  191.     Width = 169
  192.     Height = 25
  193.     Caption = 'Drop Primary Key'
  194.     TabOrder = 18
  195.     OnClick = btnDropPKeyClick
  196.   end
  197.   object btnAddFKey: TButton
  198.     Left = 216
  199.     Top = 176
  200.     Width = 169
  201.     Height = 25
  202.     Caption = 'Add Foreign Key To Orders'
  203.     TabOrder = 19
  204.     OnClick = btnAddFKeyClick
  205.   end
  206.   object btnChangeRule: TButton
  207.     Left = 216
  208.     Top = 208
  209.     Width = 169
  210.     Height = 25
  211.     Caption = 'Change Update Rule'
  212.     TabOrder = 20
  213.     OnClick = btnChangeRuleClick
  214.   end
  215.   object btnDeleteFKey: TButton
  216.     Left = 216
  217.     Top = 240
  218.     Width = 169
  219.     Height = 25
  220.     Caption = 'Delete Foreign Key'
  221.     TabOrder = 21
  222.     OnClick = btnDeleteFKeyClick
  223.   end
  224.   object CheckBox2: TCheckBox
  225.     Left = 216
  226.     Top = 376
  227.     Width = 169
  228.     Height = 17
  229.     Caption = 'ADOConnection2.Connected'
  230.     TabOrder = 22
  231.     OnClick = CheckBox2Click
  232.   end
  233.   object Button8: TButton
  234.     Left = 216
  235.     Top = 336
  236.     Width = 169
  237.     Height = 25
  238.     Caption = 'Memo1.Clear'
  239.     TabOrder = 23
  240.     OnClick = Button8Click
  241.   end
  242.   object ADOConnection1: TADOConnection
  243.     Connected = True
  244.     ConnectionString = 
  245.       'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  246.       'Source=E:\Program Files\Microsoft Office\Office\Samples\Northwin' +
  247.       'd.mdb;Mode=Share Deny None;Extended Properties="";Locale Identif' +
  248.       'ier=1033;Jet OLEDB:System database="";Jet OLEDB:Registry Path=""' +
  249.       ';Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;Jet OLED' +
  250.       'B:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Je' +
  251.       't OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwo' +
  252.       'rd="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt D' +
  253.       'atabase=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet O' +
  254.       'LEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
  255.     LoginPrompt = False
  256.     Mode = cmShareDenyNone
  257.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  258.     Left = 440
  259.     Top = 16
  260.   end
  261.   object ADOConnection2: TADOConnection
  262.     ConnectionString = 
  263.       'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  264.       'Source=C:\TEMP\Test.mdb;Mode=Share Deny None;Extended Properties' +
  265.       '="";Locale Identifier=1033;Jet OLEDB:System database="";Jet OLED' +
  266.       'B:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engi' +
  267.       'ne Type=4;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Par' +
  268.       'tial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:N' +
  269.       'ew Database Password="";Jet OLEDB:Create System Database=False;J' +
  270.       'et OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on C' +
  271.       'ompact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet ' +
  272.       'OLEDB:SFP=False'
  273.     LoginPrompt = False
  274.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  275.     Left = 144
  276.     Top = 424
  277.   end
  278.   object ADOTable1: TADOTable
  279.     Connection = ADOConnection2
  280.     CursorType = ctStatic
  281.     IndexName = 'CUSTNAMEINDEX'
  282.     TableName = 'Customers1'
  283.     Left = 272
  284.     Top = 424
  285.   end
  286.   object DataSource1: TDataSource
  287.     DataSet = ADOTable1
  288.     Left = 408
  289.     Top = 424
  290.   end
  291. end
  292.